home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00122_Verbetes- anterior.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  543 b   |  30 lines
  1. property ativo
  2. property spr
  3.  
  4. on beginSprite me
  5.   set ativo = false
  6.   set spr = the spriteNum of me
  7. end
  8.  
  9. on mouseUp me
  10.   puppetSound 2, "CliqueVaiVolta"
  11.   prevVerbete
  12. end
  13.  
  14. on idleSprite me
  15.   if rollOver(spr) then
  16.     set tmp=true
  17.   else 
  18.     set tmp=false
  19.   end if
  20.   if tmp <> ativo then
  21.     set ativo = tmp
  22.     if ativo then
  23.       set the member of sprite spr to ┬¼
  24.          (the number of member "Verbete seta esq") + 1
  25.     else
  26.       set the member of sprite spr to ┬¼
  27.          the number of member "Verbete seta esq"
  28.     end if
  29.   end if
  30. end